home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / workbench werkzeuge / boot tools / bangermenu / bangermenu.install < prev    next >
Text File  |  1996-04-07  |  10KB  |  390 lines
  1. ;Autor: Andre´ Trettin
  2. ;© by BangerSoft
  3. ;$VER: BangerMenu.install 39.150 (30-Aug-95)
  4.  
  5. (if (= @LANGUAGE "deutsch")
  6.  (
  7.   (set #bad-kick
  8.   (cat "BangerMenu funktioniert erst ab Kickstart 2.0 oder höher!.\ns. auch BangerMenu.guide\nInstallation abgebrochen"
  9.   ))
  10.   (set #choose-medium
  11.   (cat "Wähle das Medium, wo BangerMenu installiert werden soll."
  12.   ))
  13.   (set #choose-m-help
  14.   (cat "Es kann auf der Festplatte oder aber auf Disketten installiert werden."
  15.   ))
  16.   (set #choose-color
  17.   (cat "Wähle die Anzahl der Farben für die Icons."
  18.   ))
  19.   (set #choose-c-help
  20.   (cat "Wenn Sie eine Workbench mit 8 Farben laufen haben, können Sie die 8 Farben Icons installieren."
  21.   ))
  22.   (set #choose-progdir
  23.   (cat "Bitte wählen Sie ein Verzeichnis für BangerMenu aus. Das Verzeichnis BangerMenu wird dort erstellt.!"
  24.   ))
  25.   (set #choose-prog-help
  26.   (cat "In das angewählte Verzeichnis wird ein Verzeichnis mit dem Namen BangerMenu erstellt und die folgenen Programme BangerMenu, BangerMenu.asm, BangerMenu.guide, BangerMenu.install und BangerMenu.prefs werden dort installiert."
  27.   ))
  28.   (set #create-dir
  29.   (cat "Erstelle Unterverziechnis BangerMenu."
  30.   ))
  31.   (set #inst-main
  32.   (cat "Kopiere Hauptprogramm."
  33.   ))
  34.   (set #choose-disk
  35.   (cat "Bitte wählen Sie ein Laufwerk für BangerMenu aus."
  36.   ))
  37.   (set #choose-disk-help
  38.   (cat "BangerMenu wird ins C-Verzeichnis kopiert (legt es an, sofern es nicht vorhanden ist). BangerMenu.Prefs wird ins S-Verzeichnis kopiert (es wird ebenfalls angelegt, falls kein S-Verzeichnis vorhanden ist. Anleitung, Quellcode  und Installationskript können auf Wunsch ebenfalls auf die Diskette kopiert werden."
  39.   ))
  40.   (set #ask-source
  41.   (cat "Soll der Assembler-Sourcecode kopiert werden ?"
  42.   ))
  43.   (set #ask-source-help
  44.   (cat "Programmierer können, wenn sie wollen das Programm nach ihren eigenen Vorstellungen anpassen."
  45.   ))
  46.   (set #inst-source
  47.   (cat "kopiere BangerMenu.asm ..."
  48.   ))
  49.   (set #ask-guide
  50.   (cat "Soll die Anleitung kopiert werden ?"
  51.   ))
  52.   (set #ask-guide-help
  53.   (cat "Die Anleitung für das Programm"
  54.   ))
  55.   (set #inst-guide
  56.   (cat "Kopiere BangerMenu.guide ..."
  57.   ))
  58.   (set #ask-install
  59.   (cat "Soll das Installationskript kopiert werden ?"
  60.   ))
  61.   (set #ask-install-help
  62.   (cat "Ist wichtig, wenn man auf noch weiteren Medien das Programm installiert haben möchte z.B. Disketten"
  63.   ))
  64.   (set #inst-install
  65.   (cat "Kopiere BangerMenu.install ..."
  66.   ))
  67.   (set #ask-prefs
  68.   (cat "Soll das mitgelieferte Konfigfile kopiert werden ?"
  69.   ))
  70.   (set #ask-prefs-help
  71.   (cat "Eine typische Einstellung. Die dennoch abgeändert werden muß für jedes Rechner System."
  72.   ))
  73.   (set #inst-prefs
  74.   (cat "Kopiere BangerMenu.prefs ..."
  75.   ))
  76.   (set #create-s-dir
  77.   (cat "Erstelle das S Verzeichnis."
  78.   ))
  79.   (set #ask-bat
  80.   (cat "Sollen die mitgelieferte Batchfiles kopiert werden ?"
  81.   ))
  82.   (set #ask-bat-help
  83.   (cat "In Verbindung mit der Beispiel Konfig kann man die Batchfiles schnell um schreiben und erhält so einen guten Einstieg in die Benutzung des Programms."
  84.   ))
  85.   (set #inst-bat
  86.   (cat "Kopiere das Verzeichnis Bat ..."
  87.   ))
  88.   (set #create-bat-dir
  89.   (cat "Erstelle das Bat Verzeichnis."
  90.   ))
  91.   (set #endtext
  92.   (cat "Zum Starten von BangerMenu muß BangerMenu in der Startup-Sequence eingebunden werden. Zum richtigen Einbinden in die Startup-Sequence lesen sie bitte in der BangerMenu.guide nach.\n Der Pfad lautet : "
  93.   ))
  94.  )
  95. )
  96. (if (= @LANGUAGE "english")
  97.  (
  98.   (set #bad-kick
  99.   (cat "BangerMenu will only run under Kickstart 2.0 or above!.\nlooks on BangerMenu.guide\nInstallation abort."
  100.   ))
  101.   (set #choose-medium
  102.   (cat "Please choose a medium where BangerMenu should be installed!"
  103.   ))
  104.   (set #choose-m-help
  105.   (cat "BangerMenu can be install on harddrive or on disk."
  106.   ))
  107.   (set #choose-color
  108.   (cat "How many colors should your icons have ?"
  109.   ))
  110.   (set #choose-c-help
  111.   (cat "You can choose between 4 and 8 colors icons for your workbench."
  112.   ))
  113.   (set #choose-progdir
  114.   (cat "Please choose a dir where BangerMenu should be installed! A drawer BangerMenu will be created there."
  115.   ))
  116.   (set #choose-prog-help
  117.   (cat "In this location a drawer will be created. All files will be installed into this drawer."
  118.   ))
  119.   (set #create-dir
  120.   (cat "Creating BangerMenu directory"
  121.   ))
  122.   (set #inst-main
  123.   (cat "Installing main program."
  124.   ))
  125.   (set #choose-disk
  126.   (cat "Please choose a diskfloppy where BangerMenu should be installed!"
  127.   ))
  128.   (set #choose-disk-help
  129.   (cat "Installing BangerMenu in C-dir of the Disk (create a C-dir, if required). Installing BangerMenu.prefs in S-Dir of the Disk (create a S-dir, if required). If you wish to install the guide, source and intallscript when you can choose it."
  130.   ))
  131.   (set #ask-source
  132.   (cat "Should I install the asm-sourcecode ?"
  133.   ))
  134.   (set #ask-source-help
  135.   (cat "Coders can use this code for their own programms."
  136.   ))
  137.   (set #inst-source
  138.   (cat "Installing BangerMenu.asm ..."
  139.   ))
  140.   (set #ask-guide
  141.   (cat "Should I install the guide of the programm ?"
  142.   ))
  143.   (set #ask-guide-help
  144.   (cat "The little guide of this programm."
  145.   ))
  146.   (set #inst-guide
  147.   (cat "Installing BangerMenu.guide ..."
  148.   ))
  149.   (set #ask-install
  150.   (cat "Should I copy the installscript ?"
  151.   ))
  152.   (set #ask-install-help
  153.   (cat "This is important, if you want to install the programm on other medium for example on disk."
  154.   ))
  155.   (set #inst-install
  156.   (cat "Installing BangerMenu.install ..."
  157.   ))
  158.   (set #ask-prefs
  159.   (cat "Should I install the configfile ?"
  160.   ))
  161.   (set #ask-prefs-help
  162.   (cat "A expamle configfile to lerning how to build yourself configfiles for BangerMenu."
  163.   ))
  164.   (set #inst-prefs
  165.   (cat "Installing BangerMenu.prefs ..."
  166.   ))
  167.   (set #create-s-dir
  168.   (cat "Creating S directory."
  169.   ))
  170.   (set #ask-bat
  171.   (cat "Should I install the directory bat ?"
  172.   ))
  173.   (set #ask-bat-help
  174.   (cat "A few example batch files for using BangerMenu."
  175.   ))
  176.   (set #inst-bat
  177.   (cat "Installing directory bat ..."
  178.   ))
  179.   (set #create-bat-dir
  180.   (cat "Creating Bat directory."
  181.   ))
  182.   (set #endtext
  183.   (cat "Now you must wrote a few line to your Startup-Sequence. Look at the guide. The path is : "
  184.   ))
  185.  )
  186. )
  187. (complete 0)
  188. (if (< (/ (getversion) 65536) 37) (abort #bad-kick))
  189. (welcome)
  190. (complete 5)
  191. (set Medium
  192.     (askchoice
  193.         (prompt #choose-medium)
  194.         (help #choose-m-help)
  195.         (choices "HD" "Disk")
  196.         (default 0)
  197.     )
  198. )
  199. (complete 10)
  200. (set color
  201.     (askchoice
  202.         (prompt #choose-color)
  203.         (help #choose-c-help)
  204.         (choices "4" "8")
  205.         (default 1)
  206.     )
  207. )
  208. (if (= Medium 0)
  209.  (
  210.  (set preprogdest
  211.     (askdir
  212.         (prompt #choose-progdir)
  213.         (help #choose-prog-help)
  214.         (default "SYS:")
  215.         (newpath)
  216.     )
  217.  )
  218.  (set progdest ( tackon preprogdest "BangerMenu" ))
  219.  (makedir progdest
  220.       (prompt #create-dir)
  221.       (safe)
  222.  )
  223.  (if (= color 1) (set infosource "/BangerMenu.info")
  224.     (set infosource "4ColorIcons/BangerMenu.info")
  225.  )
  226.  (copyfiles
  227.     (source infosource)
  228.     (dest preprogdest)
  229.  )
  230.  )
  231. )
  232. (complete 20)
  233. (if (= Medium 1)
  234.  ((set preprogdest
  235.     (askdir
  236.         (prompt #choose-disk)
  237.         (help #choose-disk-help)
  238.         (disk)
  239.         (default "DF0:")
  240.     )
  241.   )
  242.   (set progdest ( tackon preprogdest "C" ))
  243.  )
  244. )
  245. (complete 30)
  246. (copyfiles
  247.     (prompt #inst-main)
  248.     (source "BangerMenu")
  249.     (dest progdest)
  250. )
  251. (if (= Medium 1) (set progdest preprogdest))
  252. (complete 40)
  253. (if (askbool
  254.         (help #ask-source-help)
  255.         (prompt #ask-source)
  256.     )
  257.  (
  258.     (copyfiles
  259.         (prompt #inst-source)
  260.         (source "BangerMenu.asm")
  261.         (dest progdest)
  262.     )
  263.     (if (= color 1) (set asminfo "BangerMenu.asm.info")
  264.        (set asminfo "4ColorIcons/BangerMenu.asm.info")
  265.     )
  266.     (copyfiles
  267.         (source asminfo)
  268.         (dest progdest)
  269.     )
  270.  ) 
  271. )
  272. (complete 50)
  273. (if (askbool
  274.         (help #ask-guide-help)
  275.         (prompt #ask-guide)
  276.     )
  277.  (
  278.     (if (= @LANGUAGE "deutsch")
  279.         ((set guidefile "BangerMenu.guide")
  280.         (if (= color 1) (set guideinfo "BangerMenu.guide.info")
  281.             (set guideinfo "4ColorIcons/BangerMenu.guide.info")
  282.         )
  283.         )
  284.         ((set guidefile "BangerMenu_Eng.guide")
  285.         (if (= color 1) (set guideinfo "BangerMenu_Eng.guide.info")
  286.             (set guideinfo "4ColorIcons/BangerMenu_Eng.guide.info")
  287.         ))
  288.     )
  289.     (copyfiles
  290.         (prompt #inst-guide)
  291.         (source guidefile)
  292.         (dest progdest)
  293.     )
  294.     (copyfiles
  295.         (source guideinfo)
  296.         (dest progdest)
  297.     )
  298.  )
  299. )
  300. (complete 60)
  301. (if (askbool
  302.         (help #ask-install-help)
  303.         (prompt #ask-install)
  304.     )
  305.  (   
  306.     (if (= @LANGUAGE "deutsch")
  307.         ((if (= color 1) (set installinfo "Deutsch.install.info")
  308.             (set installinfo "4ColorIcons/Deutsch.install.info")
  309.          )
  310.         )
  311.         ((if (= color 1) (set installinfo "English.install.info")
  312.             (set installinfo "4ColorIcons/English.install.info")
  313.          )
  314.         )
  315.     )
  316.     (copyfiles
  317.         (prompt #ins-install)
  318.         (source "BangerMenu.install")
  319.         (dest progdest)
  320.     )
  321.     (copyfiles
  322.         (source installinfo)
  323.         (dest progdest)
  324.     )
  325.  )
  326. )
  327. (complete 70)
  328. (if (askbool
  329.         (help #ask-prefs-help)
  330.         (prompt #ask-prefs)
  331.     )
  332.    (
  333.     (if (= Medium 1)
  334.       (
  335.         (set progdest ( tackon preprogdest "S" ))
  336.         (makedir progdest
  337.             (prompt #create-s-dir)
  338.             (infos)
  339.             (safe)
  340.         )
  341.       )
  342.     )
  343.     (copyfiles
  344.         (prompt #inst-prefs)
  345.         (source "BangerMenu.prefs")
  346.         (dest progdest)
  347.     )
  348.     (if (= color 1) (set prefsinfo "BangerMenu.prefs.info")
  349.         (set prefsinfo "4ColorIcons/BangerMenu.prefs.info")
  350.     )
  351.     (copyfiles
  352.         (source prefsinfo)
  353.         (dest progdest)
  354.     )
  355.     (if (askbool
  356.         (help #ask-bat-help)
  357.         (prompt #ask-bat)
  358.         )
  359.        (
  360.         (if (= Medium 0)
  361.            (
  362.             (set batdest ( tackon progdest "bat"))
  363.             (makedir batdest
  364.                 (prompt #create-bat-dir)
  365.                 (infos)
  366.                 (safe)
  367.             )
  368.            )
  369.            (set batdest progdest)
  370.         )
  371.         (copyfiles
  372.             (prompt #inst-bat)
  373.             (source "bat")
  374.             (all)
  375.             (dest batdest)
  376.         )
  377.        )
  378.     )
  379.    )
  380. )
  381. (complete 80)
  382. (if (= Medium 0) (set filedest ( tackon progdest "BangerMenu" ))
  383.  (set filedest ( tackon preprogdest "C"))
  384. )
  385. (complete 90)
  386. (message #endtext filedest)
  387. (complete 99)
  388. (exit)
  389.  
  390.